home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Quarterback v5.0.adf / Multiple Backups < prev    next >
Text File  |  1992-04-25  |  2KB  |  62 lines
  1. /* Backup multiple volumes to tape */
  2.  
  3. /* This macro assumes that the Backup Options */
  4. /* DisplayOptionsOn/Off flag is ON if the     */
  5. /* user wants the Backup Options to appear    */
  6. /* before the backup begins, and is OFF if    */
  7. /* user does not want the Backup Options to   */
  8. /* appear before the backup begins.  When OFF */
  9. /* the options in Backup Options must be set  */
  10. /* the way the user wants these backups to    */
  11. /* occur.                                     */
  12.  
  13. Options Results
  14.  
  15. /* Get the volumes */
  16.  
  17. SetBackupOptions DisplayOptionsOff
  18.  
  19. numVols = 0
  20. RC = 0
  21. Do While RC = 0
  22.    RequestText "Please enter the disk or"||"0A"x||"drawer name to backup:"
  23.    If RC = 0 Then Do
  24.       volumes.numVols = result
  25.       If Length(volumes.numVols) > 0 Then Do
  26.          If Index(volumes.numVols,":") = 0 Then
  27.             volumes.numVols = volumes.numVols||":"
  28.          If Exists(volumes.numVols) Then
  29.             numVols = numVols + 1
  30.          Else
  31.             Request1 "The disk or drawer '"||volumes.numVols||"'"||"0A"x||"does not exist."
  32.       End
  33.       Request3 "Do you wish to backup another"||"0A"x||"disk or drawer?"
  34.    End
  35. End
  36.  
  37. /* Backup the volumes */
  38.  
  39. If RC ~= 1 Then Do
  40.    SetTapeOptions AutoRewindOff
  41.  
  42.    Do i = 0 to numVols-1
  43.       Backup volumes.i
  44.       If RC ~= 0 Then Do
  45.          Request2 "An error has occurred."||"0A"x||"OK to continue with backup?"
  46.          If RC > 0 Then
  47.             Leave
  48.          Else
  49.             Iterate
  50.       End
  51.       If i = 0 Then
  52.          BackupOptions
  53.       Proceed
  54.       If RC ~= 0 Then Do
  55.          Request2 "An error has occurred."||"0A"x||"OK to continue with backup?"
  56.          If RC > 0 Then
  57.             Leave
  58.       End
  59.    End
  60. End; Else
  61.    Request1 "User cancelled operation."
  62. Exit